home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Anwendungen / CManager / Install < prev    next >
Encoding:
Text File  |  2004-01-31  |  11.9 KB  |  381 lines
  1. ; $VER: CManager-Install 25.2 (30.6.2003)
  2. ;
  3. ; Installer script by Ranieri/Tellini
  4. ;
  5.  
  6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  7. ;  set initial variables
  8. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  9.  
  10. (set @app-name "Contact Manager")
  11. (set #AppDir   "CManager")
  12.  
  13. (complete 0)
  14.  
  15. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  16. ;  English strings
  17. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  18.  
  19. (if (= @language "english") (
  20.  
  21.     (set @error-msg "An unexpected error has occured. Installation aborted.")
  22.  
  23.     (set #MUINotFound "MUI doesn't seem to be installed. You need to install it\nbefore installing Contact Manager.")
  24.  
  25.     (set #AskInstallDir (cat "Please select where you would like " @app-name " installed.\n"
  26.                         "A drawer called '" #AppDir "' will be created there."))
  27.  
  28.     (set #InstallDirHelp (cat "Select where you would like " @app-name " installed. "
  29.                          "The installer will then create a drawer called '" #AppDir "', "
  30.                          "and copy the program and necessary files into it.\n"))
  31.  
  32.     (set #MUIClass     "Installing some MUI classes...")
  33.     (set #MUIClassHelp "This will install some MUI classes needed by Contact Manager")
  34.  
  35.     (set #Catalogs "Copying catalog files")
  36.  
  37.     (set #Library     "Installing CManager.library...")
  38.     (set #LibraryHelp "Installing CManager.library. This is needed by CManager\nand by programs interfacing to it.")
  39.  
  40.     (set #AskPlugin     "Do you want to install the plugin for AmIRC?")
  41.     (set #AskPluginHelp "This will add the /CMADDUSER, /CMADDCHANNEL and /STARTCM\ncommands to AmIRC.")
  42.  
  43.     (set #Plugin        "Installing the plugin for AmIRC...")
  44.  
  45.     (set #AskAmIRCDir   "Please select where your AmIRC copy is installed")
  46.  
  47.     (set #SupportLib    "Installing a support library...")
  48. ))
  49.  
  50. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  51. ;  Italian strings
  52. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  53.  
  54. (if (= @language "italiano") (
  55.  
  56.     (set @error-msg "È accaduto un errore inaspettato. Installazione annullata.")
  57.  
  58.     (set #MUINotFound "MUI non sembra essere installata. Devi installarla\nprima di procedere ad installare Contact Manager.")
  59.  
  60.     (set #AskInstallDir (cat "Scegli dove vuoi installare " @app-name ".\n"
  61.                         "Lì verrà creata una directory chiamata '" #AppDir "'."))
  62.  
  63.     (set #InstallDirHelp (cat "Scegli dove vuoi installare " @app-name ". "
  64.                          "L'installer creerà una directory chiamata '" #AppDir "', "
  65.                          "e vi copierà il programma e i file necessari.\n"))
  66.  
  67.     (set #MUIClass     "Installo alcune classi MUI...")
  68.     (set #MUIClassHelp "Installo alcune classi MUI utilizzate da Contact Manager")
  69.  
  70.     (set #Catalogs "Copio i cataloghi")
  71.  
  72.     (set #Library     "Installo CManager.library...")
  73.     (set #LibraryHelp "Installo CManager.library. È necessaria a CManager\ne ai programmi che si interfacciano con esso.")
  74.  
  75.     (set #AskPlugin     "Vuoi installare il plugin per AmIRC?")
  76.     (set #AskPluginHelp "Il plugin aggiunge i comandi /CMADDUSER, /CMADDCHANNEL e\n/STARTCM ad AmIRC.")
  77.  
  78.     (set #Plugin        "Installo il plugin per AmIRC...")
  79.  
  80.     (set #AskAmIRCDir   "Scegli dov'e' installata la tua copia di AmIRC")
  81.  
  82.     (set #SupportLib    "Installo una libreria di supporto...")
  83. ))
  84.  
  85. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  86. ;  Spanish strings 1.4 - Copyright © 1999 Dámaso D. Estévez
  87. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  88.  
  89. (if (= @language "español") (
  90.  
  91.     (set @error-msg "Se ha producido un error inesperado.  Instalación abortada.")
  92.  
  93.     (set #MUINotFound "El sistema MUI parece no instalado: debe de instalarlo\nen su sistema antes de instalar `Contact Manager'.")
  94.  
  95.     (set #AskInstallDir (cat "Por favor, elija el lugar donde desea instalar " @app-name ".\n"
  96.                         "(se creará un cajón llamado `" #AppDir "')."))
  97.  
  98.     (set #InstallDirHelp (cat "Elija el lugar donde desea instalar " @app-name ". "
  99.                          "El instalador creará un cajón llamado `" #AppDir "', "
  100.                          "y copiará el programa y los ficheros necesarios en su interior.\n"))
  101.  
  102.     (set #MUIClass     "Instalando algunas clases MUI...")
  103.     (set #MUIClassHelp "Con esta operación se instalarán algunas clases MUI que son necesarias para utilizar `Contact Manager'.")
  104.  
  105.     (set #Catalogs "Copiando catálogos de idiomas")
  106.  
  107.     (set #Library     "Instalando biblioteca `CManager.library'...")
  108.     (set #LibraryHelp "Con esta operación se instalará la biblioteca `CManager.library',\nque es imprescindible para poder utilizar `Contact Manager' y\nlos programas que lo utilizarán como interfaz.")
  109.  
  110.     (set #AskPlugin     "¿Desea que se instale el módulo externo para AmIRC?")
  111.     (set #AskPluginHelp "Le permitirá añadir los comandos /CMADDUSER, /CMADDCHANNEL\ny /STARTCM a su programa AmIRC.")
  112.  
  113.     (set #Plugin        "Instalando módulo externo para AmIRC...")
  114.  
  115.     (set #AskAmIRCDir   "Por favor, indíqueme dónde tiene instalado su programa AmIRC")
  116.  
  117.     (set #SupportLib    "Instalando biblioteca de soporte...")
  118. ))
  119.  
  120. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  121. ;  Catalan strings
  122. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  123.  
  124. (if (= @language "català") (
  125.  
  126.     (set @error-msg "Ha succeït un error inesperat. Instal.lació avortada.")
  127.  
  128.     (set #MUINotFound "Sembla que el MUI no està instal.lat. Has d'instal.larlo abans\nd'instal.lar el Contact Manager.")
  129.  
  130.     (set #AskInstallDir (cat "Si us plau, selecciona on vols instal.lar " @app-name ".\n"
  131.                         "Un calaix anomenat '" #AppDir "' es crearà allí."))
  132.  
  133.     (set #InstallDirHelp (cat "Selecciona on vols instal.lar " @app-name ". "
  134.                          "Llavors l'installer crearà un calaix anomenat '" #AppDir "', "
  135.                          "i copiarà el programa i tots els fitxers necessaris dins.\n"))
  136.  
  137.     (set #MUIClass     "Instal.lant algunes classes MUI...")
  138.     (set #MUIClassHelp "Aixó instal.larà algunes classes MUI necessaries per Contact Manager")
  139.  
  140.     (set #Catalogs "Copiant els fitxers de traducció")
  141.  
  142.     (set #Library     "Instal.lant CManager.library...")
  143.     (set #LibraryHelp "Instal.lant CManager.library. Això és necessari per CManager\ni alguns programes que hi accedeixen.")
  144.  
  145.     (set #AskPlugin     "Vols instal.lar el plugin per el AmIRC?")
  146.     (set #AskPluginHelp "Això afegirà les comandes /CMADDUSER, /CMADDCHANNEL i /STARTCM al AmIRC.")
  147.  
  148.     (set #Plugin        "Instal.lant el plugin per AmIRC...")
  149.  
  150.     (set #AskAmIRCDir   "Si us plau, selecciona on està instal.lada la teva còpia del AmIRC")
  151.  
  152.     (set #SupportLib    "Instal.lant la llibreria de suport...")
  153. ))
  154.  
  155. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  156. ;  Here we go...
  157. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  158.  
  159. (welcome)
  160.  
  161. (if (= (exists "MUI:" (noreq)) 0)
  162.     (abort #MUINotFound)
  163. )
  164.  
  165. (set #InstallDir
  166.    (askdir
  167.       (prompt  #AskInstallDir)
  168.       (help    #InstallDirHelp)
  169.       (default (pathonly (pathonly (getenv "vapor/CManager_path"))))
  170.    )
  171. )
  172.  
  173. (if (= 1 (askbool
  174.             (prompt #AskPlugin)
  175.             (help   #AskPluginHelp)
  176.          )
  177.     )
  178.     (
  179.         (Set #DoPlugin 1)
  180.         (Set #AmIRCDir
  181.             (askdir
  182.                 (prompt  #AskAmIRCDir)
  183.                 (help    @askdir-help)
  184.                 (default (getenv "vapor/amirc_lastuseddir"))
  185.             )
  186.         )
  187.     )
  188.     (Set #DoPlugin 0)
  189. )
  190.  
  191. (Set #DestDir       (tackon #InstallDir #AppDir))
  192. (Set #LocaleDir     (tackon #DestDir    "Catalogs"))
  193. (Set #RexxDir       (tackon #DestDir    "Rexx"))
  194. (Set #DocsDir       (tackon #DestDir    "Docs"))
  195. (Set #ImagesDir     (tackon #DestDir    "Images"))
  196. (Set #RegDir        (tackon #DestDir    "Registration"))
  197.  
  198. (set @default-dest  #DestDir)
  199.  
  200. (set #MainExe       "CManager")
  201. (set #MainExeIcon   "CManager.info")
  202.  
  203. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  204. ;  Create directories
  205. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  206.  
  207. (makedir #DestDir    (infos))
  208. (makedir #RexxDir    (infos))
  209. (makedir #DocsDir    (infos))
  210. (makedir #ImagesDir)
  211. (makedir (tackon #DocsDir "Developer") (infos))
  212. (makedir #LocaleDir)
  213.  
  214. (if (= (exists "ENVARC:Vapor") 0 )
  215.     (
  216.         (makedir "ENVARC:Vapor")
  217.         (makedir "ENV:Vapor")
  218.     )
  219. )
  220.  
  221. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  222. ;  Copy files
  223. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  224.  
  225. (complete 10)
  226.  
  227. (copyfiles
  228.    (source #MainExe)
  229.    (dest   #DestDir)
  230. )
  231.  
  232. (if (= (exists (tackon #DestDir #MainExeIcon)) 0)
  233.     (copyfiles
  234.         (source #MainExeIcon)
  235.         (dest   #DestDir)
  236.         (infos)
  237.     )
  238. )
  239.  
  240. (copyfiles
  241.    (source "CountryCodes.txt")
  242.    (dest   #DestDir)
  243. )
  244.  
  245. (copyfiles
  246.    (source "Modems.txt")
  247.    (dest   #DestDir)
  248. )
  249.  
  250. (if (exists "Changes")
  251.    (copyfiles
  252.        (source "Changes")
  253.        (dest   #DestDir)
  254.    )
  255. )
  256.  
  257. (if (exists "Readme.first")
  258.    (copyfiles
  259.        (source "Readme.first")
  260.        (dest   #DestDir)
  261.    )
  262. )
  263.  
  264. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  265. ;  copy sub directories
  266. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  267.  
  268. (complete 40)
  269.  
  270. (copyfiles (source "Rexx")   (dest #RexxDir)   (noposition) (infos) (all))
  271. (copyfiles (source "Docs")   (dest #DocsDir)   (noposition) (infos) (all))
  272. (copyfiles (source "Images") (dest #ImagesDir) (noposition) (infos) (all))
  273.  
  274. (tooltype
  275.     (dest            (tackon #DocsDir "main.html"))
  276.     (setdefaulttool  (tackon (getenv "vapor/voyager_lastuseddir") "V" ))
  277. )
  278.  
  279. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  280. ;  Copy the catalogs
  281. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  282.  
  283. (copyfiles
  284.   (source  "Catalogs")
  285.   (dest    #LocaleDir)
  286.   (pattern "#?.catalog")
  287. )
  288.  
  289. (complete 50)
  290.  
  291. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  292. ;  Install MUI classes
  293. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  294.  
  295. ;(set #localMCCSDir (tackon #source-dir "MUI/"))
  296. (foreach "MUI" "#?"
  297.     (copylib
  298.         (prompt #MUIClass (@each-name))
  299.         (help   #MUIClassHelp)
  300.         (source (tackon "MUI" @each-name))
  301.         (dest   "MUI:Libs/MUI")
  302.         (confirm)
  303.     )
  304. )
  305.  
  306. (complete 60)
  307.  
  308. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  309. ;  Install stuff on SYS:
  310. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  311.  
  312. (copylib
  313.        (prompt #Library)
  314.        (help   #LibraryHelp)
  315.        (source "libs/CManager.library")
  316.        (dest   "LIBS:")
  317.        (confirm)
  318. )
  319.  
  320. (copylib
  321.        (prompt #SupLibrary)
  322.        (help   @copylib-help)
  323.        (source "libs/vapor_toolkit.library")
  324.        (dest   "LIBS:")
  325.        (confirm)
  326. )
  327.  
  328. (complete 70)
  329.  
  330. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  331. ;  install catalogs
  332. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  333.  
  334. (copyfiles
  335.         (prompt  #Catalogs)
  336.         (help    @copyfiles-help)
  337.         (source  "Catalogs")
  338.         (dest    #LocaleDir)
  339.         (choices "italiano")
  340.         (confirm)
  341. )
  342.  
  343. (complete 90)
  344.  
  345. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  346. ;  install the plugin
  347. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  348.  
  349. (if #DoPlugin
  350.     (copylib
  351.         (prompt #Plugin)
  352.         (help   #AskPluginHelp)
  353.         (source "AmIRC/CManager.AmIPlug")
  354.         (dest   (tackon #AmIRCDir "Plugins"))
  355.         (confirm)
  356.     )
  357. )
  358.  
  359. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  360. ;  set env var
  361. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  362.  
  363. (complete 98)
  364.  
  365. (textfile
  366.     (dest "ENVARC:vapor/CManager_path")
  367.     (append (tackon #DestDir #MainExe))
  368. )
  369.  
  370. (textfile
  371.     (dest "ENV:vapor/CManager_path")
  372.     (append (tackon #DestDir #MainExe))
  373. )
  374.  
  375. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  376. ;  All done.
  377. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  378.  
  379. (complete 100)
  380.  
  381.